inherited FRM_PesquisaFuncionario: TFRM_PesquisaFuncionario
  Left = 264
  Top = 220
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 15
  inherited gbPadrao: TAdvGroupBox
    inherited edtPesquisar: TAdvEdit
      OnKeyDown = edtPesquisarKeyDown
    end
    inherited GridPesquisar: TJvDBGrid
      Columns = <
        item
          Expanded = False
          FieldName = 'DESCRICAO'
          Title.Alignment = taCenter
          Title.Caption = 'Descri'#231#227'o dos Funcion'#225'rios Registrados'
          Width = 246
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SETOR'
          Title.Alignment = taCenter
          Title.Caption = 'Departamento'
          Width = 158
          Visible = True
        end>
    end
    inherited pnlTitulo: TPanel
      Caption = 'Pesquisar Lista de Funcion'#225'rios'
    end
  end
  inherited sqlPesquisar: TSQLQuery
    Params = <
      item
        DataType = ftInteger
        Name = 'empresa'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select'
      '  f.cod_funcionario,'
      '  f.descricao,'
      '  a.descricao as setor'
      'from funcionario f'
      
        'left join empresa_departamento a on (a.cod_departamento = f.lig_' +
        'cod_departamento)'
      'where f.lig_cod_empresa = :empresa'
      'order by f.descricao')
  end
  inherited cdsPesquisar: TClientDataSet
    object cdsPesquisarCOD_FUNCIONARIO: TIntegerField
      FieldName = 'COD_FUNCIONARIO'
      Required = True
    end
    object cdsPesquisarDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Required = True
      Size = 100
    end
    object cdsPesquisarSETOR: TStringField
      FieldName = 'SETOR'
      Size = 100
    end
  end
end
